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By Paul Goossens 


The use of I/O functions in Windows programs is still a grey area for most 
programmers. In this article, we shed some light on the use of the PC’s RS 
232 ports in a Windows compatible way. 


When you wish to use certain devices within 
a computer, you'll need routines that control 
them. With older home computers and PCs, 
writing such a routine was fairly simple. There 
was only ever one program running at a time 
so you didn’t have to take into account that 
other programs could access the same device. 
A well-written program would also make sure 
that the device was set back to its default 
state at the end of the program's execution. 

With the introduction of Windows the PC 
world changed overnight. It became possible 
to run several programs simultaneously. 
Although this was already a common practice 
in the professional computing world, for the 
home user it appeared to be close to magic! 

Those home users who were used to con- 
trol the hardware directly in their programs 
were unfortunately confronted with a new 
problem. What happens when two programs 
attempt to access the same device at the 
same time? As long as you could make sure 
yourself that this situation could never occur, 
there wasn't a problem. Worse still, in some 
programming languages the facility to access 
the hardware directly was left out. In some 
cases it was still possible to use the proces- 
sor’s I/O instructions via programming tricks. 

In this article we will show that the cor- 
rect programming of the serial interface under 
Windows is not as difficult as most people 
imagine. As well as giving your programs 
that professional look, they should also run 
without problems even in the most recent 
versions of Windows. 


20 


Operating systems 
A short but simple description of an 
operating system is that it is nothing 
but a (large) program that drives and 
controls all components within a 
computer. Some of these compo- 
nents are the mouse, keyboard, dis- 
play, memory, sound, and so on. 
The task of the operating system 
is to isolate the user program from 
the need to know the exact hard- 
ware configuration of the computer 
on which it runs. The user program 
gives instructions to the operating 


Table | 


system, which then takes care of the 
rest. This makes it possible for a pro- 
gram to run on computers with dif- 
ferent hardware configurations, 
without having to adapt the pro- 
gram. The only requirements are that 
the same operating system is 
installed on these computers and 
that the hardware is up to the task. 


Drivers 


The actual control of the hardware 
occurs via so-called drivers. For each 


Useful functions in the API for controlling the serial interface. 


FileCreate Opens a file 


EscapeCommFunction Control of the DTR and RTS outputs 


GetCommStatus Request the status of the input pins and the receive 
buffer 

ReadFile Read the receive buffer 

WriteFile Write to the output buffer of the serial port 

GetCommState Request the current state of the serial port 

SetCommState Set the state of the serial port 

GetCommMask Read the event mask. This mask determines which 
incidents generate a Windows ‘event’ 

SetCommMask Set the event mask 


ClearCommError Get information regarding the last error in the serial 


interface 
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Figure |. Simplified structure of a computer system. 


DLLs 


Windows makes extensive use of DLL files. These are libraries that can be used 
by any program. Most functions of the Windows API are made accessible by 
these DLLs. When a program makes use of a DLL it is dynamically linked with 
that program (hence the name: Dynamically Linked Library). 

To find out which functions are exported by Windows DLLs, you could use the 
seemingly unimportant ‘quickview.exe’ program, which is included with most ver- 
sions of Windows. This program can be used to open DLLs. Quickview then pre- 
sents various information about the DLL, including the names of its functions. This 
way a good overview can be obtained of the capabilities of a DLL. 

Quickview can be run by right-clicking with the mouse on a DLL file. 


Table 2 


The most significant fields in a DCB record. 


DCBLength The length of the DCB. 

BaudRate Speed of the connection in baud. 

Binary Binary connection (has to be TRUE in Windows). 

Parity Parity check (on or off). 

fOutxCtsFlow Enable or disable CTS flow control when sending informa- 
tion. When enabled, the driver stops transmitting from the 
serial port while the CTS signal is inactive. 

fOutxDsrFlow The same as fOutxXCtsFlow, but for the DSR signal. 

fDtrControl Settings for the DTR signal. 


This can have the following values! : 
DTR_CONTROL_DISABLE : DTR becomes low when the port is opened. 
DTR_CONTROL_ENABLE : DTR becomes high when the port is opened. 
DTR_CONTROL_HANDSHAKE : DTR is used for handshaking. 
fDsrSensitivity When active, the driver will ignore all data received when 
DSR is low. 


! The DTR signal is controlled by the EscapeCommFunction function, except when the 
DTR_CONTROL_HANDSHAKE option is active. 
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of the components in the computer the oper- 
ating system requires a specific driver. In this 
way the operating system can make use of 
the latest hardware, as long as the manufac- 
turer includes a driver. 


APIs 


The way in which user programs communi- 
cate with the operating system is established 
by the API (Application Programming Inter- 
face). As the name implies, this is an inter- 
face between the user programs and the 
operating system. Compilers usually have 
libraries and header-files included which take 
care of the API calls. When this isn’t the case, 
you should refer to the documentation of the 
operating system. The API is usually included 
with the SDK (Software Development Kit) of 
the operating system. These SDKs are usually 
available as a free download from the operat- 
ing system provider. 

As can be seen in Figure 1, a user pro- 
gram only communicates with the API of the 
operating system. It is of no concern to the 
programmer how the operating system works 
internally, as long as the API ensures that the 
operating system does what the program 
asks of it. The API then passes the requests 
on to the kernel for further processing. Where 
a program requires that the hardware is used, 
the kernel gets help from the accompanying 
driver program. This then communicates 
directly with the hardware. 

The communication between the driver 
and kernel isn’t via the usual API (Applica- 
tion Programming Interface), but via the SPI 
(System Programming Interface). 


The serial interface 


The serial interface is commonly used in 
homemade circuits. These circuits usually 
contain a microprocessor with an on-chip ser- 
ial port. It is a simple matter to give com- 
mands to the circuit via this port, or to 
request information from it. Even where no 
use is made of a controller it is still possible 
to use discrete logic circuits to incorporate 
serial I/O — an example of this can be seen 
in the DCI-PLC article in the June 2001 Elek- 
tor Electronics issue. 

Computer devices such as printer ports, 
serial interfaces, I/O-devices, etc. are treated 
by Windows (and most other operating sys- 
tems) as special types of file. This means that 
a program first has to open this ‘file’ before 
being able to use the device. Once such a 
‘file’ has been opened there will be several 
extra properties and functions that can be 
applied to it. Those functions that are rele- 
vant to the serial interface are listed in 
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Table 1. 


Li sti ng l Before you start programming for 


the serial port you have to make one 


it Unitl; p R aes 
gees important decision. The serial inter- 
IEEE face can be opened in two very dif- 
ferent ways. 
uses The file can be opened in either 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OVERLAPPED or NON-OVER- 
StdCtrls; 
4 LAPPED mode. The OVERLAPPED 
type mode lets Windows process any 
TForml = class(TForm) actions in the background, while the 
CHSTPIELEEALL E NEON IES main program continues operating. 
RadioButtonl: TRadioButton; With the NON-OVERLAPPED mode 
RadioButton2: TRadioButton; . : 
RadioButton3: TRadioButton; the program has to wait for Win- 
RadioButton4: TRadioButton; dows to complete any serial port 
GroupBox2: TGroupBox; actions, before continuing with its 
RadioButton5: TRadioButton; own execution. 


RadioButton6: TRadioButton; 


RadioButton7: TRadioButton; The advantage of OVERLAPPED 


RadioButton8: TRadioButton; is that the program is not unneces- 
RadioButton9: TRadioButton; sarily interrupted every time the ser- 
Buttonl: TButton; ial port is used. The big disadvan- 


Button2: TButton; 
Labell: TLabel; 
Label2: TLabel; 


tage of this choice is that you don't 
immediately know if the last com- 


CheckBoxl: TCheckBox; mand has completed successfully. It 
CheckBox2: TCheckBox; is therefore necessary to write an 
CheckBox3: TCheckBox; ‘event-handler’, which is called 


CheckBox4: TCheckBox; 
CheckBox5: TCheckBox; 
CheckBox6: TCheckBox; 


every time Windows completes a 
serial command. It is unfortunately 


Button3: TButton; fairly easy to make mistakes in this 
Label3: TLabel; routine, which are difficult to find 
Label4: TLabel; (such as deadlock and race condi- 


Label5: TLabel; 
Label6: TLabel; 
GroupBox3: TGroupBox; 


tions). In fact, only programmers 
experienced in parallel programming 


RadioButtonl0: TRadioButton; should use this mode. 
RadioButtonll: TRadioButton; The big advantage of NON- 
EEOC ENCORE Sey OVERLAPPED is that the result of 
GroupBox4: TGroupBox; i x : 
RadioButton13: TRadioButton; the command 13 available after it 
RadioButtonl4: TRadioButton; completes, without having to worry 
RadioButton15: TRadioButton; if the operation itself has completed. 
Label7: TLabel; In our example Delphi program 
parel: TEdIt; we've used NON-OVERLAPPED, 


Hee nee see partly to avoid making it needlessly 
Edit2: TEdit; complex. 

procedure FormActivate(Sender: TObject); 

procedure ButtonlClick(Sender: TObject); È 

procedure Button2Click(Sender: TObject); Delphi 

procedure RadioButtonComPort (Sender: TObject); 


procedure RadioButtonBaudRate (Sender: TObject); As an example, we have written a 


procedure CheckBox1Click(Sender: TObject); simple program in Delphi (see List- 
procedure CheckBox2Click(Sender: TObject); ing 1). This program uses the most 
procedure UpdateClick(Sender: TObject); important API calls that are relevant 
procedure ComboBoxlKeyPress(Sender: TObject; var Key: Char); to the use of the serial port 
procedure RadioButtonParityClick(Sender: TObject); ; Soa ; ; 
procedure RadioButtonStopBitsClick(Sender: TObject); The ‘Button1Click’ routine is 
procedure Button4Click(Sender: TObject); called when the user clicks on the 
procedure Edit2KeyPress (Sender: TObject; var Key: Char); OPEN button. This routine opens a 
igh nee E A ‘ file with a name corresponding to the 
rivate declarations 
hPort : LongInt; {handle for the serial port} selected COM port (COM1, COM2, 
dcbCom : TDCB; {record which holds the properties for the} etc.). 
{opened COM-port} Opening the file is only half of the 
Open : Boolean; {Is COM-port open or not?} work. Next the serial port has to be 
ComPort : Integer; {The COM-port number} 


set up. First the current settings are 
requested using ‘GetCommsState’. 
This Windows routine fills the ‘dcb- 


BaudRate : LongInt; {desired Baudrate} 
Parity : Byte; {Parity} 
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Com’ record with the current state of 


3 : use only the constant declared in Windows 
the serial port. A list of the most : z ! 


{NOPARITY EVENPARITY ODDPARITY! } 


interesting fields of this record is StopBits : Byte; {Nr of stopbits StopBits} 
shown in Table 2. Next some of the {use only the constant declared in Windows} 
fields in this record are set. Lastly {ONESTOPBIT, ONE5STOPBITS or TWOSTOPBITS !} 
i j ReadBuff : string; 
these settings are made active by See Sey 
calling ‘SetCommsState’. The serial public 
port is now opened with our { Public declarations } 
required settings. end; 
In the example program it is possi- 
var 


ble to enter some text and then trans- 
mit it with a click of the button. The 
routine that deals with the transmis- 
sion of text is ‘Button4Click’, which is 
very straighforward. It transmits the 
text using the Windows routine 
‘Writefile’. 

The program can also display any 
received serial data and the state of 
all input pins. This is accessed by 
pressing the ‘Update input’ button. 
The routine used for this is ‘Update- 
Click’. First of all the ‘GetModemSta- 
tus’ Windows routine is called. This 
routine sets a variable (called ‘State’ 
in our example) with the current 
state of the input pins. The next few 
lines update the screen with the 
state just read. 

The second part of this routine 
takes care of any characters that 
may have been received. First of all 
the routine ‘ClearCommError’ is 
called. This routine does more than 
just clear any possible errors. It also 


Forml: TForml; 
implementation 
{SR *.DFM} 


procedure TForml.FormActivate(Sender: TObject); 

begin 
ComPort:=1; 
RadioButtonl.Checked:=true; 
BaudRate:=9600; 
RadioButton6.Checked:=true; 
Parity:=NOPARITY; 
RadioButton10.Checked:=true; 
StopBits:=ONESTOPBIT; 
Radiobutton13.Checked:=true; 


{Set the startup settings} 


Open:=false; 
end; 


procedure TForml.ButtonlClick(Sender: TObject); 
begin 
hPort:=CreateFile (PChar(‘COM’+tIntToStr(ComPort) ), 
GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING, 
FILE _ATTRIBUTE NORMAL, LongInt(0)); 
if (hPort = LongInt(INVALID HANDLE VALUE)) then 
MessageDlg (‘Error opening port COM’+IntToStr(ComPort)+’ 


#13+#10+SysErrorMessage(GetLastError), mtError,[mbOk],0); 


if (hPort LongInt(INVALID HANDLE VALUE)) then 


fils a TCOMSTAT record with begin 
assorted information. The most if GetCommState (hPort,dcbCom) then 
begin 


important of which is the number of 
characters still present in the input 
buffer. If this number is greater than 
zero, the program calls the Windows 
routine ‘ReadFile’. The received char- 
acters are then shown on the screen. 
The rest of the program is con- 
cerned with providing a nice user 
interface, allowing the user to 
change the settings of the serial 
port, choose a different port, etc. 


HTML and I/O 


HTML and I/O? Wasn't this article 
supposed to be about programming? 
The running of programs is certainly 
also possible from within HTML 
pages. Scripting languages have 
been created for just this purpose. 
The two best known scripting lan- 
guages are JavaScript and VBScript. 
We would recommend that you use 
JavaScript, since most Internet 
browsers support this. To start with, 
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dcbCom.Baudrate:=BaudRate; 
dcbCom.ByteSize:=8; 
dcbCom.Parity:=Byte(Parity); 
dcbCom.Flags:=0; 
SetCommState (hPort, dcbCom) ; 
end; 
end; 


if (hPort LongInt(INVALID HANDLE VALUE)) then 

begin 
Open:=true; 
CheckBox1Click(Self); 
CheckBox2Click(Self); 
UpdateClick (Self); 
Buttonl.Enabled:=false; 
Button2.Enabled:=true; 

end; 

end; 


procedure TForml.Button2Click(Sender: TObject); 
begin 
CloseHandle (hPort); 
Button2.Enabled:=false; 
Button1.Enabled:=True; 
end; 


{ Close the FileHandle } 
{ Close-button disabled } 
{ Open-button enabled } 


procedure TForml.RadioButtonComPort(Sender: TObject); 
begin 
if (Open=true) then Button2Click(Self); { Close Handle } 


{ Open-button disabled } 
{ Close-button enabled } 
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with Sender as TRadioButton do 
begin 
ComPort:=(Sender as TRadioButton) .Tag; 
end; 
end; 


procedure TForml.RadioButtonBaudRate(Sender: TObject); 


begin 


if (Open=true) then Button2Click(Self); {Close handle } 


with Sender as TRadioButton do 
begin 
BaudRate:=(Sender as TRadioButton) .Tag; 
end; 
end; 


procedure TForml.CheckBox1Click(Sender: TObject); 
var command : integer; 
begin 
if CheckBox1.Checked=true then 
command: =SETDTR 
else 
command:=CLRDTR; 
if (EscapeCommFunction (hPort,command)=false) then 
MessageDlg (‘Error changing signal : ‘+ 


#13+#10+SysErrorMessage(GetLastError), mtError,[mbOk],0); 


end; 


procedure TForml.CheckBox2Click(Sender: TObject); 
var command : integer; 
begin 
if CheckBox2.Checked=true then 
command: =SETRTS 
else 
command:=CLRRTS; 
if (EscapeCommFunction (hPort,command)=false) then 
MessageDlg (‘Error changing signal : ‘t+ 


#13+#10+SysErrorMessage(GetLastError), mtError, [mbOk],0); 


end; 


procedure TForml.UpdateClick(Sender: TObject); 
var State : Cardinal; 
State2 : TCOMSTAT; 
Error : DWord; 
chRead : DWord; 
avail : DWord; 
begin 
ReadBuffer:=''; 
if (GetCommModemStatus (hPort,State)=false) then 
MessageDlg (‘Error retreiving ModemStatus : ‘+ 


#13+#10+SysErrorMessage(GetLastError), mtError, [mbOk],0) 


else 
begin 
if ( (state and MS CTS ON)0) then 
CheckBox3.Checked:=True 
else 
CheckBox3.Checked:=false; 
if ( (state and MS _DSR_ON)0) then 
CheckBox4.Checked:=True 
else 
CheckBox4.Checked:=false; 
if ( (state and MS_RLSD_ON)0) then 
CheckBox5.Checked:=True 
else 
CheckBox5.Checked:=false; 
if ( (state and MS_RING_ON)0) then 
CheckBox6.Checked:=True 
else 
CheckBox6.Checked:=false; 
end; 
ClearCommError (hPort,Error,@State2); 
if (Error 0) then 
MessageDlg (‘Error retreiving CommError : ‘+ 








#13+#10+SysErrorMessage(GetLastError), mtError,[mbOk],0); 


Avail:=State2.cbInQue; 


these scripting languages only had 
a limited functionality. After the 
introduction of ActiveX components 
by Microsoft it became possible to 
create nicer applications through the 
use of JavaScript or VBScript in a 
web page. 

A very interesting ActiveX com- 
ponent is the Microsoft ‘Communica- 
tions Control’. This takes care of the 
control of a serial port. Since Internet 
Explorer supports ActiveX compo- 
nents, it becomes possible to control 
the serial ports from a web page! 

To use this component on a web 
page, the following declaration has 
to be included: 


<OBJECT 
classid=clsid:648A5600- 
2C6E-101B-82B6- 
000000000014 id=MSComm1> 
</OBJECT> 


This includes the ActiveX compo- 
nent in the web page. You obviously 
won't be able to see it on the web 
page because it isn’t a graphical 
component. The properties of this 
component are set via a PARAM 
command or directly in the script. 

The settings made with PARAM 
commands become active when the 
component is placed on the web 
page by the browser. These PARAM 
commands aren't compulsory, how- 
ever. When the properties aren't set 
by PARAM commands, the default 
values will apply. The only problem 
is that it is not always clear what 
these default properties are. 

Using JavaScript we can read 
and/or change these properties from 
within a script. Especially program- 
mers with some experience in OOP 
programming will appreciate these 
properties. In the HTML application 
of Example 1 both these methods 
are used. 


Other 
programming languages 
and environments 
The Delphi program described in this 
article could just as well have in 
written in C++ Builder, Visual Basic, 
etc. When writing a program in 
these languages, which uses the ser- 
ial port, the same functions can be 
used as for Delphi. 

It is remarkable that in Delphi the 
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Windows API can be used directly, 
even though it isn’t described in the 
help pages. So even when your (Win- 
dows) programming environment 
doesn't have a description of these 
routines in its help pages, there is 
still a good chance that the Windows 
API can be used directly, as long as 
the routines’ names are known. It is 
also possible to use the ActiveX 
component, which was used in the 
example of the HTML page. 
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Useful links: 


www.codeguru.com 
www.programmersheaven.com 


www. microsoft. com 





Useful literature: 
‘Advanced Windows’, 
by Jeffrey Richter, ISBN 1572315842. 
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chRead:=0; 
if (avail>20) then avail:=20; 
begin 


setLength (ReadBuffer,availt1); 
ReadFile (hPort,PChar (ReadBuffer)*,avail,chRead,nil); 
Edit2.Text:=ReadBuffer; 
end; 
end; 


procedure TForml.ComboBoxlKeyPress(Sender: TObject; var Key: Char); 
begin 

Key:=Chr(0); 
end; 


procedure TForml.RadioButtonParityClick(Sender: TObject); 
begin 
if (Open=true) then Button2Click(Self); {Close handle } 
case (Sender as TRadiobutton).Tag of 
1 : Parity:=NOPARITY; 
2 : Parity:=EVENPARITY; 
3 : Parity:=ODDPARITY; 
else 
end; 
end; 


procedure TForml.RadioButtonStopBitsClick(Sender: TObject); 
begin 
if (Open=true) then Button2Click(Self); {Close handle } 
case (Sender as TRadioButton) .Tag of 
1 : StopBits := ONESTOPBIT; 


2 : StopBits := ONE5STOPBITS; 
3 : StopBits := TWOSTOPBITS; 
end; 

end; 


procedure TForml.Button4Click(Sender: TObject); 
var Written : DWord; 
begin 
Writefile(hPort, PChar (Editl.Text)*, Length (Editl.Text), Written, nil); 
if (WrittenLength(Edit1.Text)) then 
MessageDlg (‘Error writing : ‘+#13+#10+SysErrorMessage(GetLastError), 
mtError, [mbOk],0); 
end; 


procedure TForml.Edit2KeyPress(Sender: TObject; var Key: Char); 
begin 

Key:=#0; 
end; 


end. 
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